Option Explicit
Sub C_Sample024()
    Dim myRng As Range
    Set myRng = Range("A1")					'Nxs
    With myRng
        .RowHeight = 40 	'C
        .ColumnWidth = 40 * (.ColumnWidth / .Width) 	'e
    End With
    Set myRng = Nothing						'
End Sub
